(image-type-from-file-header): Make temporary buffer unibyte.

diff --git a/lisp/image.el b/lisp/image.el
index 3c25323853b05a16f59c73ec5291bc0e155dc4fd..b9fcb29cbcd11652ceb63df5ee78ecc0524c4c37 100644 (file)
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -99,6 +99,7 @@ be determined."
     (setq file (expand-file-name file data-directory)))
   (setq file (expand-file-name file))
   (let ((header (with-temp-buffer
+                 (set-buffer-multibyte nil)
                  (insert-file-contents-literally file nil 0 256)
                  (buffer-string))))
     (image-type-from-data header)))